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EDTSWRIEDIMSG = write VMSMSG.MSG 16*Sep-1984 02:18:31 AX-11 BLi 4.0274 Pa 1 
12-8 08- 1 3b et HT a tres B32; 9 a) | 
AUTITLE "EDTSWRIEDTMSG = write VMSMSG.MSG' 
MODULE EDTSWRIEDTMSG ( I Write VMSHSG.MSG | 
IDENT = *V04-000', i File: WRIEDIMSG.B32 Edit: JBS1007 | 
RAIN = EDTSWRIEDTMSG 


BEGIN 


SRR ERRATA EEE EAE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!* THIS SOFTWARE abies Waite” UNDER 4 License AND MAY iH USED ed tl 
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NOUS WR O OD NOUE WN 0 OD NOUS WN (OO ODNOAU SWAN OOONOAUE UNO OONOULS WH 


is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


*® 
* 
® 
® 
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* 
® 
* 
® 
* 
ie TRANSFERRED. ® 
*® 
*® 
® 
* 
*® 
® 
*® 
* 
*® 
* 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
!t AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 

'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'e SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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| 
FACILITY: EDT == The DEC Standard Editor 

ABSTRACT: | 

This module, WRIEDTMSG.FOR, is a FORTRAN program that writes | 

| 

| 

j 


the file VMSM MSG.MSG, w hich is read by the message compiler 
to produce EDT's run-time messages. 
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ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: John Sauter, CREATION DATE: 23-Jul-1981 
MODIFIED BY: 


1-001 = Original, from BASMSG.FOR, created November 3, 1978 | 
revised Sepremer 24, 1979 (version 1-015). ‘JBS Sh-Jate 1981 | 
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Don't omit the first message. JBS 03-A ne 

fhange © me B tile name to verre ie F BS zi Aue~ 1961 

Fix output file's module name 6-Aug-1981 

Recoded in BLISS since VMS souen® ° a k $ components to be 
dependent upon Fortran. JBS 22-0ct-1 

O06 - Change output file name to VMSMSG. THP. BLS oanoy= 1985 

007 = Correct the module header and trailer. JBS 09- ay~1983 
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3 
EDTSWRIEDTMSG EDTSWRIEDTMSG - write VMSMSG.MSG 1b-se -1984 02:18:31 AX-11 Bliss-32 V4.0-742 Page 2) EDTS 
v04-000 Declarations 12-8081 bbe 05:38: 8l LED T SREIWRIEDIMSG.B3224 ° (2). v04- 
; 6038 1 ZSBITL ‘Declarations’ 
: 60 00 1! 
: 61 0060 1 ! SWITCHES: 
cae 0062 1 | 
3 ee O0¢s i SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
| | 0065 1! | 
a 0066 1 ! LINKAGES: | 
s 68 0067 1! 
3; «669 0068 1! NONE 
; 494 1! 
8 71 0070 1 ! TABLE OF CONTENTS: 
oe 0071 1! 
; Bag 1 
3 74 007 1 FORWARD ROUTINE 
3 75 0074 1 EDTSWRIEDTMSG, ! Write VMSMSG. TMP 
: 76 0075 1 WRITE_FILE, ' Actually write the text 
3 77 0076 1 ! Print a Line of text 
: 78 0077 1 HEX TEXT i Convert binary to hexadecimal | 
: 79 0078 1 PRINTABLE_TEXT; i Convert binary to ASCII, printable 
; ©80 0079 1 
s $1 0080 1! 
; 82 0081 1 ! INCLUDE FILES: 
; §5 0082 1! 
2) oe 0083 1 ‘ 
: a? ste ; REQUIRE "EDTSRC:PSECTS.REQ'; ! Define PSECT declaration macros 
co Or 0190 1 REQUIRE ‘EDTSRC:SYSSYM.REQ'; ' Define system symbols | 
: 688 0220 1 
; 6 (CUP 0221 1! 
: 90 ossé 1 ! MACROS: 
; O91 0223 1! 
s 9 0224 1! NONE 
>; ¥ 0225 1! 
; 94 0226 1 ! EQUATED SYMBOLS: 
, 0227 1! 
is. 0228 1 
: ? BS¢2 1 LITERAL ui 4 : 
2 0230 1 EDTSK_FAC_NO = 133; ! Facility number, for signaling. 
;s 9 0231 1 
: 100 OS 36 1! 
: 101 023 1 ! FIELDS: 
3 106 OSee 2% 
; 0 235 1! NONE 
3: 104 0236 1! 
s 105 8S 7 1 =! STRUCTURES: 
: 106 Bs a2 
; 107 0239 1! NONE 
; 108 0240 1! 
; 109 8 41 1 ! PSECTS: 
> 110 4¢ 1 i 
: HE 0 $7 : DECLARE _PSECTS (EDT); ' Declare PSECTs for EDT$ facility 
3 118 p 45 1 ! OWN STORAGE: 
s 116 46 1! 
s 115 0247 1! NONE 


E EDTMSG EDTSWRIEDTMSG = write VMSMSG.MSG 
ERT SHRA Declarations stooge 

: 116 48 1! 

; 17 49 i EXTERNAL REFERENCES: 
: 119 Re 

; : Y 0 3 : Serica i a 

a | é ya | STRSC EON NT me 

ss 0255 1 LIBSGET INPUT, 

+ 124 0256 1 TRSCOPY_R 

: 125 0257 1 STRSEREET™ Dx, 

: 126 0258 1 EDTSMSGTXT; 

: 127 0259 1 


iEseoctge OR:18:81 Yous t] ehieecs2 us 032 


Copy a string, by descriptor 
Concatenate strin ngs 

Get a Line from SYSSINPUT 
Copy a string, by reference 
Free a dynamic string 

Return the text of a message 
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Package of macros for string processing 


EDTSWRIEDTMSG = write VMSMSG.MSG 
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3 
EDTSWRIEDTMSG EDTSWRIEDTMSG = write VMSMSG.MSG 16-Sep-1984 0 18:3) yaxett Bt iss=52 V4.0-742 
vO4 Package of macros for string processing 14-Sep-1984 12:25:55 EDT. SRCIWRIEDTMSG.B32;1 
> «186 8 17 1 t= 
5 187 m 0318 1 PRINT_LINE (TEXT, VARS) = 
; 188 M0319 1 BEGIN 
; 189 ™ 0320 1 
; 190 K '; Ss OCAL 
: 191 m0 g 1 BUILD_STATUS, 
: 19¢ A 0 ; PRINT_STATUS; 
: 19% n 03 3 BUILD_STATUS = BUILD_TEXT_LINE (LINE_DESC, %STRING (ZREMOVE (TEXT)), VARS); 
; 196 " 0 i IF ( NOT .BUILD_STATUS) THEN RETURN (.BUILD_STATUS); 
: 198 A" 0 4 PRINT_STATUS = PRINT (.OUTPUT_RAB, LINE_DESC); 
: 200 1 9 1 IF ( NOT .PRINT_STATUS) THEN RETURN (.PRINT_STATUS); 
; 203 m0 j 1 END 
: 20 0336 1 x; 
3; 204 0335 1 
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3 
EDTSWRIEDTMSG EDTSWRIEDTMSG = write VMSMSG.MSG 18-sep-1984 02:18: AX-11 Bliss-32 V4.0-742 Page 7 
04-000 EDTSWRIEDTMSG = Write VMSMSG. TMP 12280871382 95:38: 8 EDT. SRCJWRIEDTMSG.B32; 1 ° (4) | 
: 263 P 0393 FAC = (PUT), | 
: 264 P 0394 FOP = (OFP, SQO, DFW), i 
: 265 P 0395 ORG = SE i 
: 66 P %6 SHR = NIL, i 
: 26 P 039 MRS = 132, i | 
; 268 P 38 RAT = CR i | 
: 269 P 039 RFM = VA i 
: 270 P 9400 FNA = .OUfPUT_FILE_NAME_DESC FOSC$A_POINTER], | 
: 271 P 0401 FNS = .OUTPUT-FILE-NAME-DESC CDSCSW-LENGTHJ, | 
; Le} e ret) DNA = UPLIT (TEDTSRC:. TAP’) ' 
: 27 P 040 DNS = ZCHARCOUNT ('EDTSRC:.fMP'), i 
; 374 404 NAM = QUTPUT_NAM) ; 
: 275 P 0405 SNAM_INIT (NAM ="OUTPUT_NAM 
> 276 P 0406 RSA = OUTPUT_RESULT—NAME, i 
; 307 40 RSS = NAMSC_MAXRSS): 
: 278 P 0408 SRAB_INIT (RAB = OUTPUT_RAB, 
: 279 P 0409 RAC = SEQ, i 
: Sat P Oct Us? = 130, | 
; 28¢ P 041 UBF = OUTPUT_BUFFER, i 
: 383 0413 g x3 FAB = OUTPUT~FAB); 
: 285 0415 i Create the output file, and do the SCONNECT. 
; 286 0416 t= 
: 287 0417 BEGIN 
: 288 0418 E 
; 289 0419 LOCAL 
: 290 0420 3 fr «STATUS 
; 291 0421 ;  evueeeT STATUS; 
: 238 ac98 3 CREATE_STATUS = $SCREATE (FAB = OUTPUT_FAB); 
: 395 0425 4 If _( NOT .CREATE STATUS) | 
: 297 0427 3 SIGNAL_STOP ( | 
; 398 0438 3 SHRS_OPENOUT + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 
: $0 0430 OUTPUT_FILE_NAME_DESC | 
; 301 0431 -OUTPUT_FABCFABSL_STSJ, .OUTPUT_FAB CFABSL_STVJ); | 
: 308 0435 ; CONNECT_STATUS = SCONNECT (RAB = OUTPUT_RAB); | 
; 308 0435 4 IF ( NOT .CONNECT_STATUS) 
; 309 $039 : SIGNAL_STOP ( | 
; 308 0438 SHRS_OPENOUT + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 
: 310 0440 OUTPUT_FILE_NAME_DESC i 
; i 0441 -OUTPUT_RAB™ CRABSL_STSJ, .OUTPUT_RAB CRABSL_STV)); 
i ag, 
; 1? ree Point the file name descriptor to the resultant name string. 
: 319 vk OUTPUT_FILE_NAME_DESC [DSC$W_LENGTH] = .OUTPUT_NAM CNAMSB_RSLJ; 
: 318 448 OUTPUT ~FILE-NAME-DESC [DSC$B-DTYPE) = DSC$K_DTYPE_T; 
: 319 0449 OUTPUT~FILENAME-DESC CDSC$B~CLASS) = DSC$KCLASS—S: 


H 3 
EDTSWRIEDTMSG EDTSWRIEDTMSG - write VMSMSG.MSG 16-Sep-1984 02:18:31 AX-11 Bliss-32 V4.0-74 Pp 
O4+000 EDTSWRIEDTMSG = Write VMSMSG. TMP 1h-8ep-19 4 95:38:22 YEDT SRedURLEDIMSC O3004 nye (43 | 
; ? “ 9 OUTPUT_FILE_NAME_DESC CDSCSA_POINTER] = .OUTPUT_NAM CNAMSL_RSA); 
; 4 g IF ( NOT WRITE_FILE (OUTPUT_RAB)) 
: 32% 4 THEN 
; 4 454 SIGNAL_STOP ( ! 
; ? $32 HR$_WRITEERR + (CEDTSK_FAC_NO*65536) + STSSK_SEVERE, ! 
; 7 0637 OUTPUT_FILE_NAME_DESC i | 
; g 0438 -OUTPUT_RAB-CRABSL_ST$J, .OUTPUT_RAB CRABSL_STV]); | 
; 0 460 BEGIN 
; 3} 461 ve 
3 ; 46 ' Close the output file. 
e ; 046 != 
; 4 0464 
; 335 0465 LOCAL 
» 336 rh. CLOSE_STATUS; 
b 3: 
; 333 0468 CLOSE_STATUS = SCLOSE (FAB = OUTPUT_FAB); 
3; SOF 0469 
; 340 0470 4 IF ( NOT .CLOSE_STATUS) 
: 341 0471 TH 
3 38 047 SIGNAL_STOP ( ' 
; $7 oer? SHR$_CLOSEOUT + (EDTSK_FAC_NO*65536) + STSSK_SEVERE, 
; 345 0475 OUTPUT _FILE_NAME_DES 
: 346 0476 
; 347 0477 
; 348 0478 § END; 
; 349 0479 RETURN (SS$_NORMAL); 
; 350 0480 1 END; ' End of routine EDTSWRIEDTMSG 


-TITLE EDTSWRIEDTMSG EDTSWRIEDTMSG - write VMSMSG.MSG 
-IDENT \V04-000\ 


~PSECT _EDTSCODE,.NOWRT, SHR, PIC,2 


00 4 O P.AAA: .ASCII \VMSMSG\<0><0> ; 
8 P.AAB: .ASCII \EDTSRC:.TMP\<0> : 


| 

| 

| 

C 

-OUTPUT_FAB”CFABSL_STS], .OUTPUT_FAB CFABSL_STVJ); 
00 

00 50 4D 54 2€ 3A 

| 

| 

} 


e R2,R3,R4,R5,R6 
$STOP, R6 
O(SP) 


S 
00000906 00 9€& 0000 MOVAB L 
FD8 E ; 
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CE 010€0006 F 
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0050 = BF 00 Ss. 
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; | 
- - Page 9 
WRIEDTMSG = write VMSMSG.MSG 15- -Sep-1984 AX-11 Bliss-32 V4.0-742 | 
= Nhe +) alae EO Teun TEDTMee = Urite VMSMSG. TMP 14-Sep-1984 4 98: 38: Hy EDT. SRC wRleDTmsc 6.B32;1 si | 
W #8193, $RMS_PTR+22 ; | TH! 
fpc CD 6380 69 0036 HOVW #512 SBMS rest 35 : | : 
FFSe tb bf ab45 NOVAB re, bans aM SAMS P +40 ; | 3 
at 5 Ait P 5 Mite MOVL QUTPUT te NAME DESCts, SRMS_PTR+44 ; | 
Fras D 0100 te $ O03 hove aTPUt F ae Press DESC, SRMS_PTR+52 ; | 
FF61 CD B | 
0060 &8F 00 vo gE ” iF 38 29079 move 7 FAS SAAS PTR 196. SRMS_PTR ; 0407 
FEC D 0 a 
T : ; 
nt re PSC ee soe re 7 | 
0044 &8F 00 — be 85 3t itt MOVe 70, (SP), #0,°#68, S$RMS_PTR : 0413 : 
0108 CE 009 ; ¥ 
#17409, $RMS_PTR : : 
i Lae eae sla 
0128 CE Ose BF 98 O0OAT MOVZBW #1327 +32 ; | . 
O12C «CE FF7C CD 9€ OOOAD MOVAB OUTPUT “BUFFER, Sams_PTR+36 : ; 
FF2C CD 9E 00084 VAB_ OUTPUT-FAB, SRMS_PTR+60 ; : 
ere FF2C §6CD «OOF 000BB PUSHAB OUTPUT E ; 0423 | 
peri 50 EB o00ts BLBS CREATE STATUS, 1$ ; 9495 : 
7E FF34 CD a 0009 MOVQ  OUTPUT~FAB+8, (SP) : 04 1 : 
0108 CE 9F 000C PUSHAB OUTPUT ~FILE_NAME_DESC ; 042 sf 
01 oD 0009 PUSHL @# Pas i 
008510A4 8F DD 000D4 PUSHL #8720548 : 
66 05 FB OOODA CALLS #5, LIBSSTOP po : ¢ 
0108 CE 9F 9000p 1$ PUSHAB 0 UTPUT RAB : 
ew 00 95 EB $0088 BLES Eoine Ct STATUS. 2$ 0435 : é 
gic oe BB Ramee aS ret me pe 
0108 CE 9F OO0OF3 PUSHAB OUTPUT~FILE_NAME_DESC 
01 DD 000F7 PUSHL #1 Rates 
00851CA4 8F DD 000F9 PUSHL 4872 ; 
66 0S FB iit CALLS @# LIBSSTOP oe 
0100 CE FECF CD 98 90198 2$: MOV7BW r210. Tans.  QUTPUT FILE INA NAME _DESC ; 9447 
thy tf FEDD 4 ty 09119 HOVE PUT -NAM+4; at eput "FILE RARE _DESC+4 9450 
H OUTP ; 
oooov cp OE PE RSLS Pusha SUTPUT RAB eed 
17 85 EB it 6 BLBS RO. : 
0114 CE dD 001 ; PUSHL OUTPUT _RABs12 ; 0458 | 
S08 tf OF 61 B PUSHAB OUTPUT~FILE_NAME_DESC 0454 | 
1 DD OO12F PUSHL #1 pees, 
00851004 BF DD St 1 PUSHL #8720596 | 
66 5 FB 00137 CALLS #5, LIBSSTOP ae 
FF2C CD OF 61 A 3%: PUSHAB output FAB ; | 
eae 30 EB 145 BLBS © CLOSE STATUS, 4$ : 470 
ne fios, ge % i PUSHAB OUTPUT Fite NAME DESC : 047 | 
0108 FB ots BURN Bh at ILE NAME peed 


Vc-000 °° EDTSURIEDIMSG = Write Vmsnse: TR 1 $s0 98 Piseies HDT SeeSuRRED Tmte:b35+4 aed | vous 
"eee 2) ee "beste 
BS lee « 3 
; Routine Size: 352 bytes, Routine Base: _EDTSCODE + 0014 | 


; OUTPUT_RAB : REF S$RAB_DECL; 
16 LOCAL 

; Stuff for BUILD_TEXT_LINE 

CTL_STR DSC : BLOCK (8, BYTE) 


MEW 0 OD NOU EWR "OO OONOU EWN “OVD ONAOUS WN" OVDOno 


EDTSWRIEDTMSG EDTSWRIEDTMSG - write VMSMSG.MSG 6-se -1984 AX-11 Bliss-32 V4.0-74 Page 1 | EDT! 
4.000 WRITE_FILE = Actually write the file 1b-se0-1944 LL CR Ta MICE 25h} v04: 
: ¢ 481 1 XZSBITL ‘WRITE_FILE = Actually write the file’ | : ( 
: 4 j 1 ROUTINE unite FILE ¢ ' Actually write the file : 
; 354 483 1 UT_RAB i Where to write each record : 
> 355 484 1 ot i} 
3 $ 485 1 s 4 
3 2 486 1 ies | : | 
; é rt | t FUNCTIONAL DESCRIPTION: | : 
: oy ac85 : } This routine writes each record on the specified RAB. | : 
; 36 0491 1 ! CALLING SEQUENCE: si 
; 36 0498 1! st 
; 364 4935 1! ret_status.wic.v = WRITE_FILE (OUTPUT_RAB.mz.r) | 2 
; 365 0494 1! ; 
; of 0 + | : FORMAL PARAMETERS: : 
; es 4 | OUTPUT_RAB RAB onto which to write the text : 
; 370 99 1°! IMPLICIT INPUTS: .,4 
3; 371 00 1! ea 
; 378 01 1! NONE s 4 
: 37 02 1! : 
: 374 03 1 ! IMPLICIT OUTPUTS: 4 
3; 375 06 1! 74h 
; 376 05 1! None = 4 
; Ta 06 1! Sh 
: a8 | | COMPLETION STATUS: 4 
; 340 09 1! $S$_NORMAL Normal successful completion sf 
; 381 ! | Any"errors from RMS $PUT : ‘ 
; 388 : SIDE EFFECTS: : ‘ 
; HH a Writes on the file connected to OUTPUT_RAB : : 
; 387 16 1 !-- s 
; «4388 17 1 -. 4 
; «389 1 BEGIN 4 
: 390 1 s 
; 91 2 : ‘ 
: 4 | a ( 
: 394 s 
; 395 | a. ¢ 
: 96 » < 
: 397 a § 
:  ¢ 
; = 4 
; = :{ 
: a ( 
: : 
; ae 
; 2 
: 2 | 
: | 
: : 
A a ( 


SOOOCOCOOCOOSCOCOOCOOCOOCCOOOOO OOOO OOOCOOOOOOOOOOOoOOOoOO 
SS eee ee eee al sh sh Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab ah ah ab ah ah a ah ah ah al ee et ee et 


399 TEMP_STR DSC : BLOCK (8, BYTES 

400 TEMP~STRING : ‘VECTOR [1$2~ BYTE), 

401 = ouT_CENGTH, 
408 i Stuff for PRINT_LINE | 
405 LINE_DESC : BLOCK (8, BYTE), 

40 i End of stuff for PRINT_LINE 

408 ie 


3 

EDTSWRIEDTMSG EDTSWRIEDTMSG - write VMSMSG.MSG 18-se -1984 02:18: AX-11 Bliss-32 V4.0-74 Page 12 
04-006 WRITE_FILE = Actually write the file 12786871382 95:38:21 LEbT SRE sURIEDINSG.b3241 (5) | 

. 
; 409 38 PRINTABLE DESC : BLOCK (8, BYTE, ; 
: 410 EX DESC = BLOCK C8, BYTES | ; 
: 414 40 EXT_DESC : BLOCK é. Byte). ; 
: tig 41 NAME DESC : BLOCK L8, pyre P ‘ 
; «41 2¢§ SEVERITY DESC : BLOCK (8, BYTE), ‘ 
; 414 4 NAME _LENGTH, 
; 415 244 TEXT“LENGTH, | ; 
: 218 45 SEVERITY_LENGTH, | : 
> 41 278 SEVERITY_ADDR : REF VECTOR C, BYTE); : 
wm BE : 
Py .° o 
: 2 ° $i Set up TEMP_STR_DSC for BUILD_TEXT_LINE | ; 
i 488 331 $ ~ Temp_stR_DSC [DSCSW_LENGTH] = 132: ; 
; 4 226 TEMP_STR_DSC [DSCSB_DTYPE] = DSCSK_DTYPE_T; ‘ 
: 426 55 TEMP_STR_DSC CLDSCS$B_CLASS] = DSCS$K_CLASS S; : 
i 4 3 0554 TEMP-STR-DSC CDSCSALPOINTER] = CHSPTR (TEMP_STRING); : 
i 497 0556 ¢ i Set up LINE_DESC for PRINT_LINE, etc, : 
; c38 0558 2  —INIT_DESCRIPTOR (LINE DESC); 
: 4350 0559 INIT_DESCRIPTOR (PRINTABLE_DESC); : 
3 463) 0560 INIT_DESCRIPTOR (HEX_DESC); ; 
; 43¢ 0561 INITIDESCRIPTOR (TEXT_DESC); ; 
3 45 266 INIT_DESCRIPTOR (NAME DESC); : 
H rt beez s INIT_DESCRIPTOR (SEVERITY_DESC); : 
: $38 8202 Put out the initial information. | ; 
: 438 0567 " PRINT_LINE (<'!! This file, VMSMSG.TMP, contains the definitions of the EDT'>, <' '>); : 
; 439 0568 2 PRINT_LINE (<'!! messages for VAX/VMS. This file is read by the MESSAGE compiler'>, a* "ph : 
; 440 0569 2 PRINT_LINE (<*!! to build an object file containing the EDT messages.'>, <* '>); : 
; «6441 0570 § PRINT_LINE (<*!!">, <* *>); : 
; 44 0571 PRINT_LINE (<' -TITLE EDTSVMSMSG EDT''s message text'>, <' '>); : 
; 44 b27¢ 2 PRINT_LINE (<*!!">, <* '>); : 
: ret: O20 7 § PRINT_LINE (<* FACILITY/SYSTEM EDT, !SL°>, <EDTSK_FAC_NO>); : 
; 1+ : 
3; 446 0575 ! Write a Line for each message ‘ 
etd ate 3 
; 449 0578 INCR CODE FROM 0 TO 4095 DO | 2 
; 431 080 re EDTSMSGTXT (CODE, SEVERITY_DESC, NAME_LENGTH, NAME_DESC, TEXT_LENGTH, TEXT_DESC); | : 
; 438 0982 If the severity field is blank we are done. | 3 
i 435 0384 SEVERITY_ADDR = .SEVERITY_DESC CDSCSA_POINTER; | ; 
: 497 586 IF (.SEVERITY_ADDR CO EQL * ") THEN EXITLOOP; | : 
: 459 3B PRINT_LINE (<"!AS/!AS <!AS>">, <NAME_DESC, SEVERITY_DESC, TEXT_DESC>); | ; 
: 460 289 END; | 3 
OBR G ec 
; 468 398 : Write out the trailer Line | ; 
: 465 0594 PRINT_LINE (<".END'>, <* '>); | : 

| 

| 

| 

| 
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nN 3 
EDTSWRIEDTMSG EDTSWRIEDTMSG - write VMSMSG.MSG 16-Sep-1984 02:18:31 AX-11 Bliss-32 V4.0-742 P 14 | 
v04=0 WRITE_FILE = Actually write the file 1-Sep-19 4 95: 38:8 EDT SREHURTEDIMGG B3504 we (5) 
28 AE 02060000 8F D0 0004 MOVL #34471936, HEX_DESC : 0560. 
C AE D4 6 33 CLRL x ESced . ; 
20 AE 020E0000 8F DO 0 6 MOVL #34271936, TEXT_DESC : 0561 
4 AE D4 3E CLRL Tex DE St* : 
18 .€ 02060000 8F DO 006 MOVL  #34471936, NAME_DESC + 0562 
1¢ AE D4 00069 CLRL NAM DEStt : 
10 AE 02060000 8F DO 006¢ MOVL  #34471936, SEVERITY_DESC t 0563) 
14 AE D4 00074 CLRL SEVERITY bESC +4 : 
F8 AD O10EOO3D 8F 00 00077 MOVL #1769478T, CTL_STR_DSC : 0567 
FC OAD FE5D cf 9E 0007F MOVAB P.AAC, CTL_STRIDSC#4 ; 
0 DD 00085 PUSHL #32 ; 
FO AD i 9087 PUSHAB TEMP_STR_DSC : 
14 AE 9F QOO8A PUSHAB OUT_CENGTH 3 
FB =OAD OOF 90080 PUSHAB CTL“STR_DSC ; 
65 4 Fe 9090 CALLS #4, SYSSFAO ; | 
05 0 £8 0009 BLBS §- FAO_STATUS, 1$ : 
50 DD 00096 PUSHL FAO~STATUS : 
64 01 FB 00098 CALLS #1, LIB$ST : 
F4 AD DD 0009B 1$ PUSHL TEMP STR_DSC+4 : 
10 AE 9F OO09E PUSHAB OUT_CENGTH ; 
40 A 9F QO0A1 PUSHAB LINE DESC : 
66 03 FB OO0A4 CALLS #3, STRSCOPY_R : 
7D 50 £9 000A7 BLBC + BUILD_STATUS> 4$ : ; 
38 AE 9F OOOAA PUSHAB LINE _BESC : | 
52 04 AC 00 000AD MOVL  OUTPOT_RAB, R2 : 
52 DD 00081 PUSHL Re ; 
68 02 FB 00083 CALLS #2, PRINT 3 
79 50 £9 000B6 BLBC + PRINT STATUS, 5$ : 
F8 AD 010E0043 BF DO 000B9 MOVL  #1769%787, CTL_STR_DSC > 0568 | 
FC OAD E5B «CK OSE 000C1 MOVAB P.AAD, CTL_STRIDSC#4 ; | 
20 DD 000¢7 PUSHL #32 : 
FO AD 9F 000C9 PUSHAB TEMP_STR_DSC F | 
14 AE 99F OOOCC PUSHAB OUT_CENGTH ; 
F8 AD OF OOOCF PUSHAB CTL~STR_DSC : | 
65 04 FB 000D2 CALLS #4, SYSSFA : 
05 50 €8 00005 § FAO_STATUS, 2$ F 
50 DD 00008 PUSHL  FAOTSTATUS : | 
64 01 FB OOODA CALLS #1, LIB$STOP : 
F4 AD DD 000DD 28: PUSHL TEMP STR _DSC+4 “ 
10 AE 9F OO0EO PUSHAB OUT_CENGTH ; 
40 AE 9F OOOES PUSHAB LINE DESC ; 
66 03 FB BORER CALLS #3, STRSCOPY_R : 
79 50 4 OO0E BLBC + BUILD_STATUS> 7$ : 
38 AE F 0 eC PUSHAB LINE_DESC : 
52 DD OOOEF PUSHL : 
68 02 FB OOOF CALLS PRINT ; 
79 0 €9 000F4 BLBC PRINT STATUS. 8 ; | 
F8 AD 010E0037 8F b0 OOF? MOVL  #1769%775, CTL_STR_DSC ; 0569 
FC AD FE61 CF 9E OOOFF MOVAB P.AAE, CTL_STR“DSC#4 F 
20 0D 00105 PUSHL ; 
FO AD 9F 00107 PUSHAB TEMP_STR_DSC : 
14 AE 9F O010A PUSHAB OUT_CENGTH : | 
F8 AD 9F 0010D PUSHAB CTL7STR_DSC ; | 
65 Ok FB O19 CALLS #4, ~SYSSFAO : 
05 0 £8 0011 BLBS FAO_STATUS, 3$ : 
50 DD O116 PUSHL FAOTSTATUS ; 
64 01 FB 0011 CALLS #1, LIBSSTOP : 


DIMSG = write VMSMSG.MSG 
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v04-00 TE_FILE = Actually write the file 
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DIO Vs MOMOOWS MOD "ODIO MOMOOWDS "OTD ""OVDVIOWMs"OMOOWO "OWI" "OS 


Be 93:25:35 EDT sacluatepinse-032;1 


TEMP_STR_DSC+4 
OUT_CENGTH 


¢ 
TEMP_STR 
ouT_CENGT 


zo re 
wo 1 
o 


DESC 
#3, STRSCOPY_R 
BUILD STATUS; 13$ 


#2, PRINT 

PRINT STATUS, 14$ 
#1769%764, CTL_STR_DSC 
P.AAG, CTL_STR-DSC#4 


NE_DESC 
#3, STRSCOPY_R 
BUILD STATUS; 16$ 


4 
EDTSWRIEDTMSG EDTSWRIEDTMSG - write VMSMSG.MSG 1bese -1984 02:18:31 AX-11 Bliss-32 V4.0-742 Page 16. FI] 
Oa 000 WRITE_FILE = Actually write the file 12-808- 1382 08:38:21 HED SREIWALEDTNGG B3004 ” ast 
Fe AD BD 0015 128: PUSH TEMP. STR DSC+4 : | 
1 AE 3 1D PUSHAB OUT_CENGTH : 
4 AE F 001DB PUSHAB LINE DESC ; | 
$6 9 FB 0108 CALLS #35, STRSCOPY_R : 
4 0 f OIE 13$:  BLBC BUILD STATUS> 17$ : | 
38 «AE OOF O01E4 PUSHAB LINE_DESC : 
52 DD OO1E7 PUSHL R : 
68 FB OO1E9 CALLS #2, PRINT : | 
D E9 OO1EC 148 BLBC PRINT STATUS 17$ : | 
F8 AD 010E0019 BF DO OOTEF MOVL  #1769%745, CTL_STR_DSC : 0573 
FC AD FDDS CF 9E OO1F7 MOVAB P.AAI, CTL STRIDSC#4 : | 
7E 85 8F 9A O1FD MOVZBL #133, =(SPY : 
FO AD 9F 00201 PUSHAB TEMP ’STR_DSC : 
14 AE 9F 00204 USHAB OUT_CENGTH : 
FB AD OF 00 07 PUSHAB CTLSTR_DSC : 
65 04 EB 020A CALLS #4, SYSSFAO ; 
05 50 €8 00200 BS  FAQ_STATUS, 15$ : 
50 DD 00210 PUSHL FAO-STATUS ; 
64 01 FB 00 1 CALLS #1, LIB$STOP : | 
F4 AD DD 00215 15$ PUSHL TEMP STR DSC+4 : 
10 AE 9F 00218 PUSHAB OUT_CENGTH : | 
40 AF OF 00 1B PUSHAB LINE DESC F 
66 03 FB OO21E CALLS #3, STRSCOPY_R : 
72 50 £9 00 4 16$: BLBC BUILD STATUS 20$ ; 
38 «AE OOF 00224 PUSHAB LINE_BESC ; 
52 DD 00227 PUSHL R : 
68 02 FB 00229 CALLS #2, PRINT ; 
67 50 €9 0022C 17$:  BLBC = PRINT_STATUS, 20$ ; | 
08 AE D4 002¢F LRL «CODE : 0578 
20 AE 99F 002 é 18$ PUSHAB TEXT_DESC : 0580 
04 AE 9F 0023 PUSHAB TEXT"LENGTH : 
20 AE 9F 00238 PUSHAB NAME-DESC F 
10 AE 9F 00238 PUSHAB NAME~LENGTH : 
20 AE OF O023E PUSHAB SEVERITY_DESC : 
1C AE OF 00241 PUSHAB CODE : 
000000006 00 06 FB 00244 CALLS #6, EDTSMSGTXT F 
53 14 AE DO 00248 MOVL SEVERITY DESC+4, SEVERITY_ADDR > 0584 
20 63 91 0024F CMPB = (SEVERITY_ADDR). #32 > 0586 
4E 13 00292 BEQL 21$ : 
F8 AD O10EOCOD 8F 00 00254 MOVL  #17694733, CTL_STR_DSC > 0588 
FC OAD FD8C CF 9E 0025¢ MOVAB. P.AAJ, CTL_STRIDSC#4 : 
20 AE OF 00 62 PUSHAB TEXT_DESC ; 
14 AE 99F 0026 PUSHAB SEVERITY DESC : 
20 AE 9F 0 68 PUSHAB NAME_DEST : 
FO AD 9F 00268 PUSHAB TEMPSTR DSC : 
1C AE 9F 0026E PUSHAB OUT_CENGTH : 
F8 AD OF 00271 PUSHAB CTL“STR_DSC ; | 
65 9 FB 74 CALLS #6, SYSSFAO ; | 
05 E 77 BLBS §FAQ_STATUS, 19$ ; 
3 DD O027A PUSHL FAO"STATUS : 
64 1 FB 0027C CALLS #1, LIBSSTOP ; 
F4 AD DD OO27F 19% PUSHL TEMP STR DSC+4 ; | 
19 AE OF Be PUSHAB OUT_CENGTH ; 
4 AE 9F 8 PUSHAB LINE DESC : | 
66 Q FB 88 CALLS #3, STRSCOPY_R : 
4F f 8B BLBC BUILD STATUS? 23$ : 
38 «= AE «OOF O028E PUSHAB LINE_BESC : | 


,s * | 
EDTSWRIEDTMSG EDTSWRIEDTMSG = write VMSMSG.MSG 16-Sep AX-11 Bliss-32 V4.0-742 Page 17) 
vb4-000 WRITE_FILE = Actually write the file 14-Sep 7138 93:38: 3 EDT. SRCJWRIEDTMSG.B32; 1 9° (5) | 
DD 0029 PUSHL R . 24 
68 3 F 34 CALLS #3 PRINT : | : 
44 E 96 208: BLBC PRINT STATUS, 238 : | ; 
90 0B AE Q0000FFF «BFF 9 AOBLEG #4 95° CODE, 1 ; 0578 : 
FB AD O10E0004 BF A2 21$:  MOVL 694704, CTL_STR_DSC ; 0594, : 
FC AD FD4E CFE O0gAA MOVAB Py AA, CTL_STR-DSCF4 ; ; 
0 pb 00¢8 PUSHL #32 : : 
FO AD 9F 0028 PUSHAB TEMP STR DSC : : 
14 AE 9F 0028 PUSHAB OUT_CEN : : 
F8 AD 9F 002B8 PUSHAB CTL “STR =p8¢ ; ; 
65 4 FB 00¢BB CALLS #4, ~SYSSFAO : ; 
05 0 £8 00¢B BLBS = FAQ_STA Tus, 228 ; : 
DD O02C PUSHL FAO-STATUS : : 
64 01 FB 002C3 CALLS #1, L1BSStop ; : 
F4 AD DD OOgCe 228: —PUSHL TEMP. STR DSC+4 ; : 
10 AE 9F 002C PUSHAB OUT CENG ; é 
40 AE 9F O0ece PUSHAB LINE DES ; : 
66 03 FB O0eCE CALLS #3, STRSCOPY_R ; : 
62 50 £9 000 (BC BUILD STATUS? 30S : : 
38 ag F 002D PUSHAB LI eo C ; ; 
52 DD 002d PUSHL Rg : : 
68 03 FB 00 DA CALLS : : 
57 ES 00900 238: LBC” PRINT” STATUS, 308 ; : 
38 AE $F OOGED PUSHAB E_BESC ; 0598 : 
67 QT FB OOZE CALLS STRSFREE1_ DX 3 : 
05 50 £8 002E6 BLBS, FREE “STATUS, 248 ; : 
50 DD 002E9 PUSHL FREE-STATUS ; : 
64 01 FB O02EB CALLS #1, CIBSSTOP ; : 
30 AE 9F OOZEE 24$:  PUSHAB PRINTABLE DES : 0599 ; 
67 01 FB OO2F1 CALLS #1, STRSFREE1_ Dx ; : 
05 50 £8 O02F4 S  FREE_STATUS, 2 : : 
50 DD 0027 PUSHL FREE-STATUS ; : 
64 01 FB 002F9 CALLS #1, CIBSSTOP ; : 
28 AE OF OOQFC 258 PUSHAB HEX DESC ; 0600 : 
67 Qi FB OOgrE CALLS “STRSFREE1_DX : ; 
05 20 £8 00302 BLES FREE STATUS, 26$ : : 
30 DD 0030 PUSHL EE~STATUS : : 
64 01 FB 00307 CALLS 1 C1esstop ; : 
20 AE 9F OOSOA 268: PUSHAB TEXT DESC ; 0601 : 
67 9 Fe 0300 CALLS STRSFREE1_DXx : : 
05 Q £8 0031 BLBS, FREE STATUS, 278 3 : 
50 DD 0031 PUSHL rr REE “STATUS ; : 
64 01 FB 0031 CALLS #1, CIBS$STOP ; : 
18 AE 9F 00318 278: PUSHAB Maite DESC ; 0602 : 
67 FB OOSiB CALLS STRSFREE1_DXx ; : 
05 0 € 1 (BS; FREE -STATUS. 28$ ; ; 
0 DD PUSHL FREE-STATUS : : 
64 01 FB CALLS #1, CIBS$STOP : : 
10 AE OF § 288 PUSHAB SEVERITY DESC ; 0603 : 
67 1 FB CALLS #1, STRSFREE1_Dx : 
05 0 § C BLBS = FREE_STATUS, ; 
DD f PUSHL FREE-STATUS : 
64 oi FB 1 CALLS #1, CiBsstop : 
0 1p 98: MOVL #1, R ; 06 
4 7 30$ RET ; 0605 


; Routine Size: 824 bytes, Routine Base: _EDTSCODE + 0294 


ALL-RMS errors are returned to the caller, so that they can be 
signalled with the file name. 


i SIDE EFFECTS: 
Does a S$PUT to the RAB. 


F 4 
EDTSWRIEDTMSG EDTSWRIEDTMSG - write VMSMSG.MSG 16-Sep-1984 02:18:31 AX-11 Bliss-32 V4.0-74 Page 19 
Ou. 000 PRINT = print a text Line on a file 19-808 - 138% 05:38:21 fer SRe URieDTmec oor . (6). 

478 8606 ZSBITL "PRINT = print a text Line on a file’ ‘ 
479 060 ROUTINE PRINT ( ' Print a text Line on a file ‘ 
480 0608 R ! RAB onto which to print the Line . 
481 0609 TEXT_LINE ! Descriptor of the line to print ‘ 
48 0610 ) = ; 
48 0611 : 
484 oeis '++ : 
485 061 ' FUNCTIONAL DESCRIPTION: : 
486 0614 ! ; 
re Hf Ro)? This routine interfaces to RMS to print a Line of text. ‘ 
489 pels ' CALLING SEQUENCE: : 
490 618 ! : 
$3) +984 ret_status.wlc.v = PRINT (RAB_ADDR.mz.r, TEXT_LINE.rt.dx) | ; 
49 0621 ' FORMAL PARAMETERS: 4 
494 06 ¢ ! : 

495 06 RAB_ADDR Pointer to the RAB onto which to print the Line of text & 

496 062% TEXT_LINE Descriptor for the Line of text to be printed. 5 | 

498 0626 ' IMPLICIT INPUTS: s 1 

99 pose ' ; 

0628 i NONE | 

0609 \ ‘} 

0630 ! IMPLICIT OUTPUTS: | 

0631 ' ae 

0632 ' NONE 4 

063 ! : ) 

0634 ! COMPLETION STATUS: e 4 

0635 ! | 

0636 ! eae | 

r 2 1 

' 2 | 

1 | 

t | 

1 a | 

' =<. 4 

1 ; | 

i | 


SS$_NORMAL Normal successful completion 
| 
BEGIN 


P 
RAB_ADDR_ : REF $RAB pert 
TEXT_LINE : REF BLOCK (8, BYTE); 


LOCAL | 
PUT_STATUS; | 


oOOoooo 
Oooo oo 
-—o 
PROPOPOROPOPOPOROPONONONOPINUNONNY 2 2 tt 


'¢ 
Fill in the RAB fields. 


” RAB_ADDR [RABSW_RSZ 
RAB"ADDR CRABSL~RBF 


'¢ 
Now do the $PUT 


SSSS83 
“nu 


WN AIAIPIPOPONYNPINONPONIDYD 4 2 OO OO OOOO 
oO 
o 
oa 


PUPP LUPUS SUSU SISTA STII 


= the aah EDTEMRIED TESS - write VMSMSG.MSG 
V04= PRIN 


NT = print a text Line on a file 

PUT_STATUS = SPUT (RAB = 
IF ( NOT .PUT_STATUS) THEN RETURN (.PUT_STATUS); 
RETURN (SS$_NORMAL) ; 


: 8:3] he Bliss ° 
:25:55 EDT. SRCJWRIEDTMSG.B32;1 


! End of routine PRINT 


[=] 
o 


oomnnovouacVveo 
fSowuwvooccoo 
foleleoleleloleoleolol oq) 
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Nu ZREsZ 


MRO” > 


— 
bad 


; Routine Size: 


_EDTSCODE + OSCC 


SYSSPUT 


SYS$PUT 
y F Status, 1$ 


H 4 
EDTSWRIEDTMSG EDTSWRIEDTMSG = write VMSMSG.MSG 16-Sep-1984 02:18:31 AX=-11 Bliss-32 V4.0-74 
vb4-000 HEX_TEXT = n rae Se 93:38:83 EDT.SRC URlEDTNSG.830+1 


SG 
Return a binary string in hexadecima 1 
TT 
TI 


] 
x 
; 54 1 ZSBITL ‘HEX_TEXT = Return a binary string in hexadecimal’ 
; 3546 1] ROUTINE HEX TEXT ( ' Return a binary string in hex 
: 544 1 OUTPUT_BESC, ' Descriptor to receive the hex 
; 545 1 INPUT_CEN ' Number of input bytes 
: #8 1 INPUT "ADDR ' Address of start of input 
s 4 1 )s 
; 548 1 
: 49 1 lee 
3 2 : FUNCTIONAL DESCRIPTION: 
: 228 1! This routine converts an arbitrary ety of bytes into hex, so it 
; 227 : } can be printed. Early bytes are put to the right of Later bytes. 
3 22? : : CALLING SEQUENCE: 
3 220 ! status.wlc.v = HEX_TEXT (OUTPUT_desc.wt.dx, INPUT_LEN.rl.v, INPUT_ADDR,ra.v) 
; 228 ! FORMAL PARAMETERS: 
; 561 1! output_desc Where the result text is stored. 
; 26¢ 1} input_Ten Number of bytes of input 
. eer : input_addr Address of first input byte 
; 565 1 ! IMPLICIT INPUTS: 
; 566 1! 
; 567 1! NONE 
; 568 1! 
; 569 1 ! IMPLICIT OUTPUTS: 
; 570 1! 
3; «571 1! NONE 
3 376 1! 
3 a7 ' COMPLETION STATUS: 
; 575 eg. SS$_NORMAL Normal successful completion 
3 3re 7! Any errors from STRSCONCAT 
; ore 07046 1! Any errors from STRSCOPY_DXx 
; 578 0705 1! 
; 579 0706 1 ! SIDE EFFECTS: 
; 580 0707 1! 4 
3 38! t44 : Calls STRSCONCAT and STRSCOPY_DX, thus manipulating string storage. 
3 283 0710 1 !-- 
: 584 0711 1 
3 5 orig BEGIN 
: 71 
; 58 0714 MAP 
; 588 0715 INPUT_ADDR : REF VECTOR f BYTE) 
> 589 216 OUTPUT_DESC : REF BLOCK C8, BYTES; 
; 590 71 
: 591 718 LOCAL 
: 36 719 INTER_DESC : BLOCK f . BYTE), 
; 39 720 DIGIT_DESC : BLOCK . BYTE), 
: ape 721 DIGIT 
: 595 7 g STATUS; 
: 4 7 
s 39 724 INIT_DESCRIPTOR (INTER_DESC); 
; 598 725 DIGIT_DESC COSC$W_LENGTH) = 1; 


Page 21) 
wr )| 


4 | 

EDTS G = write VMSMSG.MSG 16- -Sep-1984 AX-11 Bliss-32 V4.0-74 P ong 

HEX eturn a binary string in hexadecima 1 ~Sep- 198 98: 38: 3 EDT. SRCJWRIEDTMSG.B32; ee F 
; 599 7 $ DIGIT_DESC [DSCSB_DTYPE] = DSCSK_DTYPE_T; | 
: 600 7 DIGIT-DESC EDSCSB-CLASS) = DSCSKCLASS~S: 
; 60) g 8 DIGIT“DESC CDSCSATPOINTER) = DIGIT; 
: 60 730 INCR CHAR_NO FROM 1 TO .INPUT_LEN DO 
; 604 g 1 BEGIN 
: 606 7 g LOCAL 
oo Me boss 
: 609 07 CHAR = .INPUT ADDR [CHAR NO. 11; 
610 07 ; DIGIT = (.CHAR AND 15) 
; 61g 0739 IF (.DIGIT GTR '9*) THEN DIGIT = .DIGIT = 10 = 'O' + ‘A'; | 
; 614 0741 STATUS = STPSCONCAT (inTER_DESC, DIGIT_DESC, INTER_DESC); | 
; 616 ors IF ( NOT .STATUS) THEN RETURN (.STATUS); 
; 618 0745 DIGIT = (.CHAR*=4) + '0'; | 
; e 0747 3 IF (.DIGIT GTR '9") THEN DIGIT = .DIGIT - 10 - 'O' + ‘a’; 
; 6 é 0749 : STATUS = STRSCONCAT (INTER_DESC, DIGIT_DESC, INTER_DESC); 
: 624 0751 ; IF ( NOT .STATUS) THEN RETURN (.STATUS); | 
> 625 0758 
oon Sh Bee 
: 628 0755 STATUS = STRSCOPY DX (.OUTPUT DESC, INTER_DESC); 
: 629 0756 DISCARD DESCRIPTOR (INTER_DESC); 
: 630 0757 RETURN T. STATUS); 
; 631 0758 #1 D; ! End of routine HEX_TEXT 


003C 00000 HEX_TEXT: 
WORD 


‘ Save R2,R3,R4,R5 : 0670 | 
55 000000006 00 9€ 0000 HOVAB STRSCONCAT, R5 ; 
Se 14 C2 000 SUBL2 #20, SP : | 
OC AE 020E0000 8F 0c #34471936, INTER_DESC > 0724 
AE D4 0 14 CLRL INTER ri +4 ; | 
04 AE 010E0001 8F 00 00017 MOVL #1769% DIGIT DESC : 0725. 
AE of E OO1F MOVAB DIGIT. DIGIT : 0728 | 
D4 CLRL = CHAR_NO : 0736. 
4— 11 RB 4$ : | 
AC C1 1$ ADDL3 INPUT_ADDR, CHAR_NO, RO : | 
AQ 9A MOVZBL =1(ROJ, CHAR : 
99 EF EXTZV #0, #4. CHAR, DIGIT : 0737 
CO ADDL2 #48 Digit ; | 
b} MPL Git, #57 : 0739. 
3 BLEQ 3 
§ ADDL2 #7, DIGIT ; 
AE 9F 00040 2% PUSHAB INTER_DESC > 0741 
AE 9F 0004 PUSHAB DIGIT~DESC ; 


4 
EDTSWRIEDTMSG EDTSuR I DIMSG = write VMSMSG.MSG 1b-se -1984 AX-11 Bliss-32 V4.0-74 Page 23 
F400 HEX_TEXT = Return a binary Sirtas in hexadecima 1 sett 98: 38: a YEDT SRC JURIED IMSC 6.832; . 3 
16 AE 9F 0004 PUSHAB INTER ress, : 
5 F 4 CALLS #3, § STR CONCAT : 
4 D 4C MOVL aTyS : 
4 4 5 4f BLBC STATUS S, + 0743 
52 5 Fe F 2 ASHL #4, CHAR, R2 + 0745 
6 302 § MOVAB 48(R2), picit ; 
it B cHPL pe r) + 0767) 
6E 0 é ADDL2 #7, DIGIT : 
oc AE 9F 00063 3S: PUSHAB INTER_DESC t 0749) 
AE OF 0066 PUSHAB DIGIT“DESC : 
14 Ar OF 906 PUSHAB INTER DES¢ ; 
$5 F 6C CALLS #3, STRSCONCAT : 
4 0D O06F VL —s RO STATUS : 
@8 4 €9 000 é BLBC STATUS, 5$ : 0751 
AD 08 AC F3 00075 4$: AOBLEQ INPUT_LEN, CHAR_NO, 1$ : 0730 
OC AE 9F OOO7A PUSHAB INTER DESC + 075 
04 aC DD 00070 PUSHL OUTPUT DESC 3 
000000006 00 08 F 9080 CALLS #2, STRSCOPY_Dx : 
54 DO 00087 VL —sRO,._: STATUS ; 
OC AE 9F OOOBA PUSHAB INTER DESC : 0756) 
000000006 00 gi FB 90080 CALLS #1, STRSFREE1_Dx : 
09 0 E8 00094 LBS - FREE_STATUS, 5$ : 
50 DD 00097 PUSHL FREE STATUS F 
000000006 00 9} FB 00099 CALLS #1, CIBSSTOP : 
50 4 00 0000 5$ MOVL STATUS, RO : 0757 
04 000A RET : 0758 


; Routine Size: 164 bytes, Routine Base: _EDTSCODE + OSEF 


K 4 
EDTSWRIEDTMSG EDTSWRIEDTMSG = write VMSMSG.MSG 16-Sep-1984 02:18:31 AX-11 Bliss-32 V4.0-74 Page 24) 82 
F04~000 PRINTABLE_TEXT = Return a oe string in ASCI 1 30071382 95:38:23 feDT .src URIED MSG .03004 . Bb 
3 639 0759 1 XSBTTL 'PRINTABLE_TEXT = Return a binary string in ASCII, printable’ 
; 6 760 1 ROUTINE PRINTABLE_TEXT ( ' Return a binary string in printable ASCII 
3 359 761 #1 UTPUT_DESC, ' Descriptor to receive the text 
3 6 166 1 INPUT_ ' Number of input bytes 
: 6 0763 1 INPUT ADDR i Address of start of input 
; 6s 0764 1 )= 
; 639 0765 1 DEF, 
; 640 0766 1 l+4 
: 641 0767 1 | FUNCTIONAL DESCRIPTION: 
3 gg $769 2. 2 This routine converts an ore trary string of bytes into ASCII, representing | 
; one pr 00 ! } unprintable characters in hexadecimal so the result can be printed. 
; 646 4c) 1 ! CALLING SEQUENCE: 
; 647 0773 1! 
3 3 Bore 1 Status.wlc.v = PRINTABLE_TEXT (OUTPUT_desc.wt.dx, INPUT_LEN.rl.v, INPUT_ADDR,ra.v) 
; 650 0776 1 ! FORMAL PARAMETERS: 
; 651 0777 1! 
: 626 0778 1! OUTPUT_DESC Where the result text is stored. 
: 65 0779 1! INPUT_CEN Number of bytes of input 
; 654 0780 1! INPUT_ADDR Address of first input byte 
; 655 0781 1! 
; 656 34-04 1 ! IMPLICIT INPUTS: 
; 657 0783 1! 
; 658 0784 1! NONE 
; 659 0785 1! 
; 660 0786 1 ! IMPLICIT OUTPUTS: 
; 661 0787 1! 
; 4) 0788 1! NONE 
; 66 0789 1! 
; 664 0790 1 ! COMPLETION STATUS: 
: 665 0791 1! 
; 666 6735 & SS$_NORMAL Normal successful completion 
; 667 0795 1! Any errors from STRSCONCAT 
; 668 0794 1! Any errors from STRSCOPY_DX 
; 669 0795 1! 
: 670 0796 1 ! SIDE EFFECTS: 
3 «OF 0797 1! 
3 678 444 : Calls STRSCONCAT and STRSCOPY_DX, thus manipulating string storage. 
3; 674 0800 1 !-- 
; $2? 0801 1 canes 
; Of $808 
: 678 0804 Pp 
; 679 0805 INPUT_ADDR : REF VECTOR f BYTE) 
: 680 o809 OUTPUT_DESC : REF BLOCK (8, BYTES; 
3; 6 308 LOCAL 
; 68 809 INTER_DESC : BLOCK {8. BYTE), 
3 810 CHAR_BESC : BLOCK f . BYTE), 
: 685 11 CHAR_REP : VECTOR (4, BYTEJ, 
; re \¢ STATOS; 
; 688 814 JMET DESCRIPTOR CINTER RESC): 
; 4689 815 CHAR_DESC CDSC$W_LENGTA) = 1; 
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SN 
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CHAR_DESC 
CHAR _DESC 


BEGI 
LOCAL 


CHAR = 


N 
BEG! 


i The chorecter, 
! ambiguity, 


- write VMSMSG.MSG Ib-se p-1984 AX-11 BLi 
T = Return a Risers string in ASCI 1 ~Sep- 1986 2 98: 38: 3 EDT. SRCIJW 
HAR_DESC (DSC$B =bryre = DSCSK_DTYPE_T 

DSC$B_CLASSJ = DSCSK-CLASS- si 
DSCSA- ~POINTER] = CHAR_REP (03; 


INCR pyr -NO FROM 1 TO .INPUT_LEN DO 


CHAR; 


- INPUT_ADDR C.CHAR_NO = 1); 


IF fe eon ae Ens7r) AND ' 


S 2X'7F — ; 


(, CHA an Neo 7<e"9 : 
(. CHAR NEQ S05 AN 


ty 
Show character as itself. 


CHAR_REP [0] = 
CHAR_DESC CDscsu, LENGTH = 


is not printable. Represent it by <>. To avoid 
* and are also represented this way. Control characters 


! SOH Peden § SUB are represented by <“letter>; others characters by <hex>. 
CHAR_REP [0] = '<'; 

IF (¢ 
THEN 


((.CHAR + %X°40") GEQ 'A’) AND ((.CHAR + %X°40") LEQ ‘2")) 


_REP £2 overs 
CHAR_REP [2] = .CHAR + %x'40'; 


LOCAL 
DIGIT; 


DIGIT = (.CHAR*=4) + "0"; 
IF (.DIGIT GTR '9") THEN DIGIT = .DIGIT - 10 - ‘0 + ‘A’; 


CHAR_REP (1) = .DIGIT; 
DIGIT = (.CHAR AND 15$ + ‘0°; 


IF (.DIGIT GTR '9*) THEN DIGIT = .DIGIT - 10 = ‘O° + ‘A’; 
CHAR_REP (2) = .DIGIT; 
END; 


ss-32 V 
ATED TMS 


“B33; 


Se . 7 


a 4 
EDTSWRIEDTMSG EDTSWRIEDTMSG = write VMSMSG.MSG 16-Sep AX-11 Bliss-3 0-74 
ous $00 PRINTABLE_TEXT = Return a sept aetony in ASCI 14-Sep 71982 95: 38: a EDT. SRCJW TT $6.B32; — (BS 
: 747 73 4 CHAR C3] a 
: 7% 7% & CHAR™ ESC ascsu > LénGTH = 
: 786 bare woes | 
; Hs ne STATUS = STRSCONCAT (INTER_DESC, INTER_DESC, CHAR_DESC); 
: 75 087 IF ( NOT .STATUS) THEN RETURN (.STATUS); 
> 754 0880 | 
: 755 0881 END; 
: 756 O88 
: 757 088 STATUS = STRSCOPY DX (.OQUTPUT_DESC, INTER_DESC); 
; 758 0884 DISCARD DESCRIPTOR (INTER_DESC); 
: 759 885 RETURN T.STATUS); 
; 760 0886 1 END; ! End of routine PRINTABLE_TEXT 
000C 00000 PRINTABLE_TEXT: 
QORD Save R2,R3 3; 0760 
SE 14 (2 SUBL2 #20, SP ; 
OC AE 020E0000 8F 00 MOVL # 4471936, INTER_DESC + 0814 
AE D4 CLRL INTER_D : 
04 AE 010E0001 8F 00 MOVL #1769%721, "CHAR DESC > 0815 
08 AE $f 9E MOVAB CHAR_REP, CHAR_BESC+4 ; 0818 
5 ps CLRL § CHARTNO : 0826 
0090 31 BRW 7$ ; 
50 52 Oc ac C1 ADDL3 INPUT ADDR. CHAR_NO, RO ; 
51 FF AO 9A MOVZBL <-1(ROT, CHAR : 
20 51 D1 CMPL CHAR, #3 : 0828 
ic 19 BLSS ; 
0000007F 8F 51 1 CMPL CHAR, #127 : 0829 
13 18 BGEQ ? F 
3C 51 01 CMPL THAR, #60 : 0830 
OE 13 BEQL 3 
22 51 01 CMPL CHAR, #34 > 0831 
09 13 BEQ.L 3 
6E 51 90 MOWB CHAR CHAR. REP : 0837 
04 AE 01 B0 MOV , CHAR_DESC : 0838 
50 11 BRB : 0828 
6E 3c (90 OVB #60 CHAR gre? : 0847 
50 40 Al 9E OVAB 64(R1) > 0849 
00000041 &F 30 p CMPL $5. nog ; 
1 9 BLSS ; 
0000005A = 8F 50 01 CMPL RO, #90 : 
07 14 BGTR : 
01 5E F 90 MOVB #94, CHAR_REP+1 ; 0852 
4 11 BRB : 085 
51 FC OB 78 ) ASHL a4 CHAR RO : 0861 
50 0 ¢ ADDL2 pr pight : 
39 D? CMPL : 0863 
45 LEQ : 
50 £0 ADDL2 : 
4 Ove ie “Chan REP+1 ; 0865 | 
4 0 EF EXTZV , DIGIT : 0866 | 
0 ra) ADDL2 #8, a ; | 
} 


| N 4 
ER Reo TnsS DISWRIEDTMSG = write ryt pte 6-Se 
-00 RINTABLE_TEA n 4-Se 


EDI 16-Sep-1984 02:18:31 AX-11 Bliss-32 V4.0-742 Page 27. 
V PRINTABLE_TEAT = Return a binary string in ASCI 14-5 ats ri 95:38 :8 YEDT SREJUALED NSC 63504 . AiG 
39 D1 7 CMPL p GIT, #57 : 0868 | 
1 A BLEO : 
50 § C ADDL2 #7, DIGIT 3 | 
02 AE 0 F S$: MOVE Digit CHAR_REP+2 : 0870 
AE — 9 093 MOVB #62, CHAR_REP+3 + 0873. 
04 AE 4 80 09 MOVW #4, CHAR DESC + 0874. 
06 AE OF 9B 6$: SHAB CHAR DESC ; 0877 | 
10 AE 9F 44 PUSHAB INTER_DESC 3 
14 AE 9F OOOA SHAB INTER DESC : 
000000006 09 0 FR Boa CALLS #3, STRSCONCAT ; 
5 50 DO 000AB VL —_ RO, STATUS : 
gD 53 «£9 OOAF BLBC STATUS, 8$ : 0879 | 
FF69 52 1 08 AC F1 00081 7$: ACBL INPUT_LEN, #1, CHAR_NO, 1$ + 0820 
OC AE 9F 00088 PUSHAB INTER DESC + 0883 
04 AC DD 000BB PUSHL OUTPUT DESC ; 
000000006 00 02 FB 0008E CALLS #2, STRSCOPY_Dx : 
53 50 pO 000C OVL RO, STATUS F 
Oc AE OF 900¢8 PUSHAB INTER_DESC : 0884. 
000000006 00 01 FB 000CB CALLS #1, STRSFREE1_DX : | 
09 50 €8 00002 LBS FREE_STATUS, 8$ : 
50 DD 00005 PUSHL FREE STATUS ; 
000000006 00 01 FB 00007 CALLS #1, CIBSSTOP 3 
50 53 DO OOODE 8$: MOVL STATUS, RO : 0885 
04 000E1 RET > 0886 
; Routine Size: 226 bytes, Routine Base: _EDTSCODE + 0 


693 | 
| 


; 761 0887 1 !<BLF/PAGE> 


Hba000 S° BRINTABLE TERT ~"Return's binary string in ASCI ib Sep-1984 99:25:55 — LeDTsacluRLED TMS: 
pee ! END ! End of module EDTSWRIEDTMSG 
0890 0 ELUDOM 
-EXTRN LIBSSTOP 
PSECT SUMMARY 
Bytes Attributes 
1909 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
eomeennee Symbols -------- Pages Processing 
Total Loaded Percent Mapped ime 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 106 1 581 00:02.4 


COMMAND QUALIFIERS 


Seren er eehe, e INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:WRIEDTMSG/OBJ=OBJ$:WRIEDTMSG MSRC$:WRIEDTMSG.B32/UPDATE=(ENHS:W 


1601 coge,* 308 data bytes 
02:10.7 


714 
Lexenes/CPU-Nin: 11820 


334 pages 


tion Complete 
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